home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / dumpg6.lst < prev    next >
File List  |  1995-04-22  |  2KB  |  36 lines
  1. 32000 REM PROGRAM    DUMPGR6.LST 
  2. 32001 REM BY Glen G. Hosey 
  3. 32003 REM . .Tacoma WA 98433 
  4. 32006 REM -------------------------- 
  5. 32007 REM Program to dump GRAPHICS 6 
  6. 32008 REM screens to printer in full- 
  7. 32009 REM page size (6.4x10 inches). 
  8. 32010 REM Program requires 3426 bytes 
  9. 32011 REM of memory including the 
  10. 32012 REM string (with all REMs out). 
  11. 32013 REM Program will dump screen in 
  12. 32014 REM 2 minutes and 20 seconds. 
  13. 32015 REM Use 'GOTO 32100' to access 
  14. 32016 REM routine.  Routine will not 
  15. 32017 REM alter screen display. 
  16. 32018 REM --------------------------- 
  17. 32100 DIM AA$(1536):RESTORE 32200:ZZ=0:FOR XX=0 TO 188:READ YY:POKE 1536+XX,YY:ZZ=ZZ+YY:NEXT XX 
  18. 32105 IF ZZ<>21873 THEN ? "DATA ERROR":END  
  19. 32110 SCREEN=PEEK(88)+256*PEEK(89):SCREEN=SCREEN+20*95 
  20. 32120 TRAP 32190:CLOSE #5:OPEN #5,8,0,"P:":LPRINT CHR$(27);"A";CHR$(8) 
  21. 32130 FOR XX=SCREEN TO SCREEN+19:AA$=CHR$(0):AA$(1536)=CHR$(0):AA$(2)=AA$ 
  22. 32140 YY=USR(1536,XX,ADR(AA$)) 
  23. 32150 ? #5;CHR$(7);"K";CHR$(128);CHR$(1);AA$(1,384):? #5;CHR$(27);"K";CHR$(128);CHR$(1);AA$(385,768) 
  24. 32160 ? #5;CHR$(27);"K";CHR$(128);CHR$(1);AA$(769,1152):? #5;CHR$(27);"K";CHR$(128);CHR$(1);AA$(1153,1536) 
  25. 32170 NEXT XX 
  26. 32180 GOTO 32180 
  27. 32190 ? "ERROR #";PEEK(195):END  
  28. 32200 DATA 104,14,133,204,104,133,203,104,133,206,133,208,104,133,205,133,207,160,0,162,97,202,208,49,96 
  29. 32210 DATA 169,240,145,207,200,145,207,200,145,207,200,145,207,160,0,96,177,207,9,15,145,207,200,145,207 
  30. 32220 DATA 200,145,207,200,145,207,160,0,96,24,165,207,105,128,133,207,165,208,105,1,133,208,96,177,203 
  31. 32230 DATA 133,209,41,128,240,3,32,25,6,165,209,41,64,240,3,32,41,6,32,59,6,165,209,41,32 
  32. 32240 DATA 240,3,32,25,6,165,209,41,16,240,3,32,41,6,32,59,6,165,209,41,8,240,3,32,25 
  33. 32250 DATA 6,165,209,41,4,240,3,32,41,6,32,59,6,165,209,41,2,240,3,32,25,6,165,209,41 
  34. 32260 DATA 1,240,3,32,41,6,56,165,203,233,20,133,203,165,204,233,0,133,204,24,165,205,105,4,133,205 
  35. 32270 DATA 133,207,165,206,105,0,133,206,133,208,76,21,6 
  36.